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MPITaskO 


MPI Task 1 


#defme size 1024 
int sdata[size]; * 
int rdata[size]; 
MPI.Status status; 
MPLRcquest request; 
int tag = 30; 

/* initialization */ 

/* — blocking send-recv 0 -> 1 */ 

/* fill sdata */ 

MPLSend (sdata, size, MPI_INT, 1, 

tag, MPLCOMM.WORLD), 
/* use or overwrite sdata ♦/ 

/* — non-blocking send recv l->0 */ 

MPLIrecv (rdata, size, MPI_ii\T, 1, 

tag, MPLCOMM.WORLD, Arequest); 
/* computation excluding rdata / 
MPLWait(&request,&status); 
/* use rdata */ 

/* finish */ 


#define size 1024 
int sdata [size]; 
int rdata[size]; 
MPI.Status status; 
MPI_Request request; 
int tag = 30; 

/* initialization */ 

/* — blocking send-recv 0 -> 1 */ 

MPLRecv (rdata, size, MPI_INT, 0, 

tag, MPI_COMM_WORLD, Astatus) 
f* use rdata */ 

/* — non-blocking send recv l->0 */ 
/* fill sdata */ 

MPIJsend (sdata, size, MPI.INT, 0, 

tag, MPLCX)MM_WORLD, Arequest); 
/* computation excluding sdata */ 
MPLWait(&request,&status); 
/* use or overwrite sdata */ 

/* finish */ 
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